home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / PIPESIZE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-02-03  |  2.2 KB  |  70 lines
  1. 10  'PIPESIZE - Standard Pipe Sizes - 03 FEB 97 rev.
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS:KEY OFF
  4. 40  COLOR 7,0,1
  5. 50  UL$=STRING$(80,205)
  6. 60  U$="###.###"+CHR$(34)
  7. 70  V$="####.##"+" cm"
  8. 80  DIM D$(19,2)
  9. 90  '
  10. 100  COLOR 15,2
  11. 110  PRINT " PIPE SIZES (ANSI Standard)";
  12. 120  PRINT TAB(57);"by George Murphy VE3ERP ";
  13. 130  COLOR 1,0:PRINT STRING$(80,223);
  14. 140  COLOR 7,0
  15. 150  DATA 1/8,1/4,3/8,1/2,3/4,1,1DEFSTR,1RENUM,2,2RENUM,3,3RENUM,4,5,6,8,10
  16. 160  DATA .405,.540,.675,.84,1.05,1.315,1.66,1.9,2.375,2.875
  17. 170  DATA 3.5,4,4.5,5.563,6.625,8.625,10.75
  18. 180  FOR Z=1 TO 17:READ D$(Z,1):NEXT Z
  19. 190  FOR Z=1 TO 17:READ D$(Z,2):NEXT Z
  20. 200  COLOR 0,7:LOCATE ,12
  21. 210  PRINT " STANDARD SIZES of WROUGHT IRON, COPPER and PLASTIC PIPE "
  22. 220  COLOR 7,0:PRINT STRING$(80,205);
  23. 230  LOCATE CSRLIN-1,32:PRINT "FN"
  24. 240  PRINT " Nom. Size";TAB(14);"Outside Diameter  CALL"
  25. 250  PRINT STRING$(31,205);"<0xB5!>"
  26. 260  FOR Z=1 TO 17:PRINT TAB(4)D$(Z,1);CHR$(34);
  27. 270  X=VAL(D$(Z,2))
  28. 280  PRINT TAB(11)USING U$;X;
  29. 290  PRINT TAB(21)USING V$;X*2.54;
  30. 300  PRINT " CALL"
  31. 310  NEXT Z
  32. 320  '
  33. 330  T=34:LOCATE 5,12
  34. 340  LOCATE ,T:PRINT "The word 'pipe' as distinguished from 'tube'"
  35. 350  LOCATE ,T:PRINT "is used to apply to tubular products of"
  36. 360  LOCATE ,T:PRINT "dimensions commonly used for pipelines and"
  37. 370  LOCATE ,T:PRINT "piping systems. Pipe outside diameters are"
  38. 380  LOCATE ,T:PRINT "larger than corresponding nominal sizes"
  39. 390  LOCATE ,T:PRINT "whereas outside diameters of tubes are"
  40. 400  LOCATE ,T:PRINT "identical to nominal sizes."
  41. 410  PRINT
  42. 420  LOCATE ,T:PRINT "The size of all pipe is identified by the"
  43. 430  LOCATE ,T:PRINT "nominal pipe size, and is based on a standard"
  44. 440  LOCATE ,T:PRINT "outside diameter. This OD was originally"
  45. 450  LOCATE ,T:PRINT "selected so that pipe with a standard OD and"
  46. 460  LOCATE ,T:PRINT "having a wall thickness typical of the period"
  47. 470  LOCATE ,T:PRINT "would have an inside diameter approximately"
  48. 480  LOCATE ,T:PRINT "equal to the nominal size. Although there is"
  49. 490  LOCATE ,T:PRINT "now no such relation between existing standard"
  50. 500  LOCATE ,T:PRINT "thicknesses, OD's and nominal sizes, these"
  51. 510  LOCATE ,T:PRINT "nominal sizes and OD's continue in use as"
  52. 520  LOCATE ,T:PRINT CHR$(34);"standard";CHR$(34);"."
  53. 530  LOCATE 24,9:COLOR 0,7
  54. 540  PRINT " (Machinery's Handbook, Revised 21st Edition, pages 2323-2324) ";
  55. 550  COLOR 7,0:GOSUB 570:RUN EX$
  56. 560  '
  57. 570  'HARDCOPY
  58. 580  GOSUB 690:LOCATE 25,2:COLOR 14,6
  59. 590  PRINT " Press 1 to print screen, 2 to print screen & ";
  60. 600  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  61. 610  Z$=INKEY$:IF Z$="3"THEN GOSUB 690:RETURN
  62. 620  IF Z$="1"OR Z$="2"THEN GOSUB 690:GOTO 640
  63. 630  GOTO 610
  64. 640  FOR QX=1 TO 24:FOR QY=1 TO 80
  65. 650  LPRINT CHR$(SCREEN(QX,QY));
  66. 660  NEXT QY:NEXT QX
  67. 670  IF Z$="2"THEN LPRINT CHR$(12)
  68. 680  GOTO 580
  69. 690  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  70.